home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Tools / glimpsehttp / cgi-bin / news < prev   
Encoding:
Text File  |  1995-05-16  |  5.7 KB  |  229 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # Acknowledgements
  4. #
  5. # Thanks to Guy Brooker (guy@jw.estec.esa.nl) for his AA interface,
  6. # which was the starting point for this program.
  7. #
  8. # Paul Clark
  9. # paul@cs.arizona.edu
  10. #
  11. # Modifications
  12. # 
  13. # 2/22/94    Version 1.0, shell script version    Paul Clark
  14. # 4/21/94    Version 1.1, multiple archives support    Paul Clark
  15. # 4/22/94    Version 1.2, perl script        Paul Clark
  16. # 4/26/94    rewritten from aglimpse script
  17.  
  18. # **** **** **** ****    CONFIGURABLE VARIABLES     **** **** **** ****
  19. $HTTPD_HOME="/usr1/paul/httpd" ;
  20. $HTTPD_NEWSHOME="/usr1/paul/news" ;
  21. $GLIMPSE_LOC="/usr/paul/bin/glimpse" ;
  22.  
  23. # **** **** **** **** NO CONFIGURATION NEEDED BELOW **** **** **** ****
  24.  
  25. $FSSERV="/cgi-bin/article" ;
  26.  
  27. #    To support an ISINDEX type search, set query string if given
  28. #    an argument on the command line
  29. if ( $#ARGV >= 0 ) {
  30.     $prefix= "whole=on&case=on&query=";
  31. }
  32.  
  33. if ( $ENV{'PATH_INFO'} ) {
  34. # old-fashioned way to give newsgroup
  35.     $newsgroup = substr($ENV{'PATH_INFO'},1);
  36.     $newsgroup =~ s|"||g;
  37.     $prefix= "group=" . $newsgroup . "&". $prefix;
  38. }
  39.  
  40. #    Check that a query has been made
  41. $query = $ENV{'QUERY_STRING'};
  42. $query =~ s|"||g;
  43.  
  44. #    Strip the variables out from the query string,
  45. #    and assign them into variables, prefixed by 'QS_'
  46. @qvars = split( /\&/, $prefix . $query );
  47. #print "Content-type: text/plain\n\n" ; #debug
  48. foreach (@qvars) {
  49.     split(/=/);
  50.     $fname = $_[0];
  51.     $fvalue = $_[1];
  52.     $cmd = "\$QS_$fname = \"$fvalue\";" ;
  53. #    print "$cmd\n"; #debug
  54.     $cmd = eval $cmd if ( $fname =~ /^[a-z_A-Z]\w*$/ );
  55. }
  56.  
  57. $newsgroup = $QS_group;
  58. $newsgroup =~ tr/A-Z/a-z/;
  59. $indexdir = $HTTPD_NEWSHOME . "/indices/" . $newsgroup;
  60. $ENV{'HOME'} = $indexdir; # some versions of Glimpse need it
  61.  
  62. # Ensure that Glimpse is available on this machine
  63. -x $GLIMPSE_LOC || &err_noglimpse ;
  64.  
  65. # Ensure that index is available
  66. -r "$indexdir/.glimpse_index" || &err_noindex ;
  67.  
  68. $QS_query =~ s|\+| |g;
  69. $QS_query =~ s/%(\w\w)/sprintf("%c", hex($1))/ge;
  70. $QS_query =~ s|"||g;
  71.  
  72. #if no query has been made, provide ISINDEX type of reply
  73. $QS_query || &err_noquery ;
  74.  
  75. $OPT_errors="-$QS_errors"    if $QS_errors =~ /^[0-8]$/;
  76. $OPT_errors="-B -y"        if $QS_errors =~ /^Best\+match$/;
  77. $OPT_case="-i"            if $QS_case =~ /^on$/;
  78. $OPT_whole="-w"            unless $QS_whole =~ /^on$/;
  79.  
  80. if ($QS_maxlines =~ /\d+/) {
  81.     $maxlines = $&;
  82. } else {
  83.     $maxlines = 20;
  84. }
  85. if ($QS_maxfiles =~ /\d+/) {
  86.     $maxfiles = $&;
  87. } else {
  88.     $maxfiles = 100;
  89. }
  90.  
  91. print "Content-type: text/html\n\n" ;
  92. print "<HEAD><TITLE>Search for \"$QS_query\" in \"$newsgroup\"\n";
  93. print "</TITLE></HEAD><BODY>\n";
  94. print "<H1>Glimpse search for \"$QS_query\"<BR>".
  95.     "in newsgroup \"$newsgroup\"</H1><HR>\n";
  96.  
  97. chdir $indexdir;
  98. unlink <.glimpse_tmp*> ;
  99. $cmd = "exec $GLIMPSE_LOC -z -y -n $OPT_case $OPT_whole $OPT_errors -H ." .
  100.      "$OPT_filter \"$QS_query\" 2>&1 |";
  101. # print $cmd,"\n",`pwd`;
  102. $gpid = open(GOUT, $cmd );
  103. $prevfile = "";
  104. $lcount = 0;
  105. $fcount = 0;
  106. line: while (<GOUT>) {
  107.     s/&/\&/g;
  108.     s/</\</g;
  109.     s/>/\>/g;
  110.     ( /^([^ :]*):\s*([0-9][0-9]*):(.*)/ ) || next;
  111.     $file = $1;
  112.     $line = $2;
  113.     $string = $3;
  114.     $file =~ s|.*groups(/[^/]*/[^/]*)$|$1|;
  115.     if ($file ne $prevfile) {
  116.         $fcount++ ;
  117.         $linecount = -1;
  118.         if ($fcount>$maxfiles) {
  119.             print "<H3>Limit of $maxfiles " .
  120.                 "articles exceeded...</H3>\n";
  121.             $file = "";
  122.             $fcount = "at least $fcount";
  123.             $lcount = "at least $lcount";
  124.             last line;
  125.         }
  126.         print "</UL>" if ( $prevfile ne "" );
  127.         $prevfile = $file ;
  128.         print "<H3>Article <A HREF=\"",$FSSERV,$file,
  129.             "\">",$file,"</A></H3><UL>\n" ;
  130.     }
  131.     $lcount++ ;
  132.     $linecount++;
  133.     if ($linecount>=$maxlines) {
  134.         print "<LI>Limit of $maxlines matched " .
  135.             "lines per file exceeded...\n" if
  136.                 $linecount==$maxlines;
  137.         next line;
  138.     }
  139.     print "<LI><A HREF=\"",$FSSERV,$file,"?",$line,"#mfs\">\n" ;
  140.     print "line ",$line,":",$string,"</A>\n" ;
  141. }
  142. print "</UL>\n" if $file ;
  143. print "<HR>" ;
  144. print "<H3>Summary for query <code>\"",$QS_query,"\"</code>:</H3>\n" ;
  145. print "found ",$lcount," matches in ",$fcount," articles\n" ;
  146. print "</BODY>\n" ;
  147. close(GOUT);
  148. unlink "/tmp/.glimpse_tmp.$gpid";
  149.  
  150. sub diag_exit {
  151. # exit on error
  152.     exit 1;
  153. }
  154. sub err_noquery {
  155. #    The script was called without a query. 
  156. #    Provide an ISINDEX type response for browsers
  157. #    without form support.
  158. print "Content-type: text/html\n\n";
  159. print "<HEAD><TITLE>Search newsgroup \"$newsgroup\"</TITLE></HEAD>\n";
  160. print "<BODY><H1> Search newsgroup \"$newsgroup\" </H1>\n";
  161. print "Welcome to the gateway to \"$newsgroup\".\n";
  162.     print <<'EOM' ;
  163. Type a pattern to search in your browser's
  164. search dialog. Query is case-insensitive by default<P>
  165.  
  166. <ISINDEX>
  167.  
  168. <H2>IMPORTANT !</H2>
  169. <QUOTE>
  170. <UL>
  171. <LI>This is an experimental service. Therefore, its functionality
  172. may change or discontinue at any moment without prior notice.
  173. <LI>Please report any malfunctions of this gateway to the
  174. address below.
  175. <LI>All access operations on the server are logged.
  176. If you discover any security leaks, don't use them - report them to
  177. the address below.
  178. </UL>
  179. </QUOTE>
  180.  
  181. <HR>
  182. <ADDRESS>
  183. Your name<BR>
  184. login@your.host.here<BR>
  185. </ADDRESS>
  186.  
  187. </BODY>
  188.  
  189. EOM
  190.     &diag_exit;
  191. }
  192.  
  193. sub err_noglimpse {
  194. #
  195. # Glimpse was not found
  196. # Report a useful message
  197. #
  198.     print <<'EOM' ;
  199. Content-type: text/html
  200.  
  201. <HEAD>
  202. <TITLE>Glimpse not found</TITLE>
  203. </HEAD>
  204. <BODY>
  205. <H1>Glimpse not found</H1>
  206.  
  207. This gateway relies on <CODE>Glimpse</CODE> search tool.
  208. If it is installed, please set the correct path in the script file.
  209. Otherwise obtain the latest version from
  210. <A HREF="file://ftp.cs.arizona.edu/glimpse">ftp.cs.arizona.edu</A>
  211. </BODY>
  212. EOM
  213.     &diag_exit;
  214. }
  215.  
  216. sub err_noindex {
  217. print "Content-type: text/html\n\n";
  218. print "<HEAD><TITLE>Newsgroup $newsgroup not found</TITLE>\n";
  219. print "</HEAD> <BODY>\n";
  220. print "<H1>Newsgroup $newsgroup not found</H1>\n";
  221.     print <<'EOM' ;
  222. Please remember: this is NOT a news server. It has only a few
  223. newsgroups. Please use it ONLY for the search of a particular article,
  224. NOT for reading the news.
  225. </BODY>
  226. EOM
  227.     &diag_exit;
  228. }
  229.